home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / wtek0693.zip / OOPALLEY.ZIP / BAG.V < prev    next >
Text File  |  1990-02-04  |  363b  |  28 lines
  1.  
  2. Test class Bag
  3. b = Bag[
  4. AssocInt((1 @ 1)=1)
  5. AssocInt((1 @ 2)=1)
  6. AssocInt((1 @ 3)=2)]
  7.  
  8. b.asArrayOb: ArrayOb[
  9. (1 @ 1)
  10. (1 @ 2)
  11. (1 @ 3)
  12. (1 @ 3)]
  13.  
  14. b.includes(C): 1
  15. c == b: 1
  16. b.includes(C): 1
  17. b = Bag[
  18. AssocInt((1 @ 1)=1)
  19. AssocInt((1 @ 2)=1)
  20. AssocInt((1 @ 3)=1)]
  21.  
  22. b.includes(C): 0
  23. b = Bag[
  24. AssocInt((1 @ 1)=1)
  25. AssocInt((1 @ 2)=1)]
  26.  
  27. c == b: 0
  28.